#########################################################
#Figure 7: Wealth Treatment Decreases Risk Aversion
#########################################################

brisk <- read.dta13("./temp/fig7data.dta")
ggplot(brisk, aes(as.factor(var), coef, color=var)) +
  geom_pointrange(aes(ymin=coef-1.96*stderr, ymax=coef + 1.96*stderr), shape=16, size=1.7) +
  theme_nice() + ylab("Willingness to Take Risks") + xlab("Treatment Condition")  + 
  scale_y_continuous(breaks=c(2.1,2.2, 2.3, 2.4), limits = c(2.1,2.45)) + 
  scale_x_discrete(labels=c("Control", "Treatment")) + 
  scale_color_manual(values=c("grey40", "tan"), name=" ") + 
  theme(axis.title = element_text(size=17),
        axis.text = element_text(size=15),
        panel.grid.major = element_line(linetype="solid"),
        legend.position = "none") 
ggsave("./figures/fig7.pdf")
rm(brisk)